home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 22 / AACD 22.iso / AACD / Programming / RxMUI / Examples / toolbar.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  2001-05-24  |  3.9 KB  |  124 lines
  1. /**/
  2.  
  3. signal on halt
  4. signal on break_c
  5.  
  6. l="rmh.library";if ~show("L",l) then;if ~addlib(l,0,-30) then exit
  7. if AddLibrary("rxmui.library")~=0 then exit
  8. call RxMUIOpt("debugmode showerr")
  9. call ProgDir()
  10.  
  11. call CreateApp(f)
  12. call HandleApp
  13. /* never reached */
  14. /***********************************************************************/
  15. HandleApp: procedure expose pic
  16.  
  17.     ctrl_c=2**12
  18.     do forever
  19.         call NewHandle("app","h",ctrl_c)
  20.         if and(h.signals,ctrl_c)>0 then exit
  21.         select
  22.             when h.event="QUIT" then exit
  23.             otherwise say h.event
  24.         end
  25.     end
  26.     /* never reached */
  27. /***********************************************************************/
  28. err: procedure expose sigl rxmuierror
  29. parse arg res
  30. say sigl "["res"]"
  31.     say getrxmuistring(res) "in line" sigl-1 rxmuierror
  32.     exit
  33. /***********************************************************************/
  34. CreateApp: procedure expose pic
  35. parse arg f
  36.  
  37.     app.Title="ToolbarExample"
  38.     app.Version="$VER: ToolbarExample 1.0 (23.3.2001)"
  39.     app.Copyright="©2001, alfie"
  40.     app.Author="alfie"
  41.     app.Description="ToolbarExample"
  42.     app.Base="RXMUIEXAMPLE"
  43.     app.SubWindow="win"
  44.      win.ID="MAIN"
  45.      win.Title="Toolbar example"
  46.      win.Contents="MGROUP"
  47.  
  48.       mgroup.0="tbg"
  49.        tbg.class="group"
  50.        tbg.horiz=1
  51.         tbg.0="tb"
  52.          tb.Class="Toolbar"
  53.          tb.Font="Tiny"
  54.          tb.Path="YAM:Icons/"
  55.          tb.ImageNormal="Address.toolbar"
  56.          tb.ImageSelect="Address_S.toolbar"
  57.          tb.ImageGhost="Address_G.toolbar"
  58.          tb.Description="bank"
  59.           bank.0.Type="Button"; bank.0.Text="_New";
  60.           bank.1.Type="Button"; bank.1.Text="_Find";
  61.           bank.2.Type="SPACE"
  62.           bank.3.Type="Button"; bank.3.Text="_Person";
  63.           bank.4.Type="Button"; bank.4.Text="_List"
  64.            bank.4.Flags="toggle"
  65.           bank.5.Type="Button"; bank.5.Text="_Group"
  66.           bank.6.Type="Button"; bank.6.Text="_Modify"
  67.           bank.7.Type="Button"; bank.7.Text="_Delete"
  68.           bank.8.Type="Button"; bank.8.Text="P_rint"
  69.           bank.9.Type="SPACE"
  70.           bank.10.Type="Button"; bank.10.Text="_Open"
  71.            bank.10.Flags="toggle radio selected"; bank.10.Exlude=2**11
  72.           bank.11.Type="Button"; bank.11.Text="_Close"
  73.            bank.11.Flags="TOGGLE radio"; bank.11.Exlude=2**10
  74.         tbg.1=hspace()
  75.  
  76.       mgroup.1=hbar()
  77.  
  78.       mgroup.2="cg"
  79.        cg.class="group"
  80.        cg.columns=2
  81.         cg.0=label("Rad_io")
  82.         cg.1=MakeObj(,"HLeft",MakeObj("ra","radio","Open|Close","i",0,1))
  83.         cg.2=label("Disable _0")
  84.         cg.3=MakeObj(,"HLeft",CheckMark("c0",,'0'))
  85.         cg.4=label("Gone _1")
  86.         cg.5=MakeObj(,"HLeft",CheckMark("c1",,'1'))
  87.         cg.6=label("Disable toolbar")
  88.         cg.7=MakeObj(,"HLeft",CheckMark("c2",,'1'))
  89.  
  90.     res=NewObj("APPLICATION","APP")
  91.     if res~=0 then do
  92.         call PrintFault()
  93.         exit
  94.     end
  95.  
  96.     call set("win","open",1)
  97.     call getattr("win","open","o")
  98.     if o=0 then do
  99.         say "can't open window"
  100.         exit
  101.     end
  102.  
  103.     call Notify("win","CloseRequest",1,"app","ReturnID","quit")
  104.  
  105.     call Notify("ra","active",0,"tb","tbset",10,"selected",1)
  106.     call Notify("ra","active",1,"tb","tbset",11,"selected",1)
  107.  
  108.     call TBNotify("tb",0,"pressed",0,"app","return","TB0")
  109.     call TBNotify("tb",1,"pressed",0,"app","return","TB1")
  110.     call TBNotify("tb",3,"pressed",0,"app","return","TB3")
  111.     call TBNotify("tb",10,"pressed",1,"ra","set","active",0)
  112.     call TBNotify("tb",11,"pressed",1,"ra","set","active",1)
  113.  
  114.     call Notify("c0","selected","everytime","tb","tbset",0,"ghosted","triggervalue")
  115.     call Notify("c1","selected","everytime","tb","tbset",1,"Gone","triggervalue")
  116.     call Notify("c2","selected","everytime","tb","tbsetall","ghosted","triggervalue")
  117.  
  118.     return
  119. /***********************************************************************/
  120. halt:
  121. break_c:
  122.     exit
  123. /**************************************************************************/
  124.